home *** CD-ROM | disk | FTP | other *** search
- 10 cls
- 15 y_offset = 3
- 20 gosub 1000
- 30 x=17:y=y_offset+7:gosub 2000:server$=in$
- 40 x=17:y=y_offset+10:gosub 2000:printer$=in$
- 50 x=37:y=y_offset+5:gosub 2000:display_port$=in$
- 60 x=37:y=y_offset+8:gosub 2000:filter_on$=in$
- 70 x=48:y=y_offset+10:gosub 2000:filter$=in$
- 80 cls:end
- 1000 cursor(0,y_offset)
- 1005 print"┌──┬──────────────────────────────────────────────────────────────────────┐"
- 1010 print"│..│ Sample Text Input Form │"
- 1020 print"├──┴──────────────────────────────────────────────────────────────────────┤"
- 1030 print"│ │"
- 1040 print"│ ┌─┐ │"
- 1050 print"│ ┌─ Print Destination ───────────┐ │Y│ Display port settings on print │"
- 1060 print"│ │ ┌────────────────┐│ └─┘ │"
- 1070 print"│ │ LPD server │ ││ ┌─┐ │"
- 1080 print"│ │ └────────────────┘│ │Y│ Enable data filter │"
- 1090 print"│ │ ┌────────────────┐│ └─┘ ┌────────────────────────┐ │"
- 1100 print"│ │ LPD printer │ ││ Filter │ │ │"
- 1110 print"│ │ └────────────────┘│ └────────────────────────┘ │"
- 1120 print"│ └───────────────────────────────┘ │"
- 1130 print"│ │"
- 1140 print"└─────────────────────────────────────────────────────────────────────────┘"
- 1150 return
- 2000 cursor(x,y):input "",in$:return
-
-